﻿Imports Microsoft.VisualStudio.TestTools.UnitTesting.Web

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports bisaska


<TestClass()> _
Public Class DivisiDbTest
    Dim connectionString As String = "Data Source=STUDIOXXX\SQLEXPRESS;Initial Catalog=bisas2;Integrated Security=True; Min Pool Size = 10"

    <TestMethod()> _
    Public Sub isExistTest()
        Dim target As DivisiDb = New DivisiDb(connectionString)
        Console.WriteLine(target.isExist("BSK/ARS"))
        Assert.AreEqual(True, target.isExist("BSK/ARS"))
    End Sub
End Class
